|
VBasic : txt Datei ändern und speichern
Thomas Harmening am 13.12.2005 um 21:01 Uhr (0)
:-) Holzauge und wachsam :-)Code:Pos-zahlen.vbswandelt *.txt in pos-*.txt und ersetzt zahlen* in POS-zahlen*einfach per drag and drop - alt. send toOption Explicit Dim WSHShell, fso, FileIn, FileOutDim Datei, Zielver, Text, Txt, i, arrSort, arrTest(), oArgsSet WSHShell = WScript.CreateObject("WScript.Shell")Set fso = WScript.CreateObject("Scripting.FileSystemObject")set oArgs = Wscript.Arguments Falls ein Argument übergeben wurde, sollte es einen Dateinamen enthaltenFor i = 0 to oArgs.Count - 1 ho ...
|
|
CATIA V5 Allgemein : CV5 R18 Installationsprobleme
Thomas Harmening am 08.10.2008 um 20:40 Uhr (0)
Zitat:On the other hand, some blue screens look like this:STOP: c000021a {Fatal System Error}The Windows Logon Process system process terminated unexpectedly witha status of 0x00000001 (0x00000000 0x00000000).The system has been shut down.The hexadecimal number following the word "STOP" is called the bug check code or Stop code. This is the most important item on the screen.Naja, es kann viele Ursachen haben, was da nicht harmoniert, am besten mal dort http://msdn.microsoft.com/en-us/library/ms789510.aspx ...
|
|
Tebis : Datenkonvertierung
Thomas Harmening am 30.11.2009 um 14:02 Uhr (0)
no comment? no idea?hmmm... Code:Dim fso, oShell, oSource, strPathSet fso = CreateObject("Scripting.FileSystemObject")Set oShell = CreateObject("Shell.Application")Set oSource = oShell.BrowseForFolder(0, "Verzeichnis auswählen:", 22, 12) strPath = oSource.Items().item().PathIf strPath "" Then KonvFiles strPathEnd IfWScript.Echo "Vorgang beendet"Sub KonvFiles(strPath) Dim oFolder, oFiles, item, strNewName On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso. ...
|
|
Rund um AutoCAD : AutoCAD Architecture 2010 instabiel
Thomas Harmening am 03.12.2009 um 19:16 Uhr (0)
Wie sieht es den mit Hotfixes aus? http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=13487061&linkID=9240658 könnte das dein Problem helfen?
|
|
Rund um AutoCAD : Installationsordner von c: gelöscht (für huuma05)
Thomas Harmening am 06.08.2013 um 07:42 Uhr (1)
Hilft vielleicht schon dieser Link? http://www.autodesk.de/adsk/servlet/ps/dl/item?siteID=403786&id=16895565&linkID=16890270
|
|
CATIA V5 Programmierung : 5000 Linien mit Makro erzeugen
Thomas Harmening am 25.04.2007 um 14:24 Uhr (0)
ja, einen Geoset haben, die Punkte alle auswählen ( ich habe es nicht im Baum ausgewählt, sondern am Bildschirm gefangenund dann das Makro startenCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") nur für xlsDim myPartDocumentSet myPartDocument = CATIA.ActiveDocumentSet mypart = myPartDocument.PartSet myAxis = mypart.CreateReferenceFromObject(mypart.AxisSystems.Item("Absolute Axis System")) Axis mit dem Namen erforderlicherzeuge ein neues Geoset mit namen LinienSet myHybridBodies = mypart.hyb ...
|
|
CATIA V5 Allgemein : Malen nach Zahlen mit Polylinie?
Thomas Harmening am 04.04.2007 um 16:10 Uhr (0)
hmm, als Vorlage könntest du dieses Script nehmen, das erzeugt um jeden selektierten Punkt eine SpähreWenn deine Punkte die Verbunden werden sollen aufsteigend sortiert sind punkt.1 ... punkt.999 sollte das relativ gut klappen, (Ansonsten müsste noch eine Sortierroutine rein AddNewSphere muss durch die Linienfunktion ersetzt werden und dann linie von Item(i) zu Item(i+1)...etc.[Diese Nachricht wurde von Thomas Harmening am 04. Apr. 2007 editiert.]
|
|
CATIA V5 Programmierung : 5000 Linien mit Makro erzeugen
Thomas Harmening am 24.04.2007 um 17:48 Uhr (0)
hmmm, du hattest doch schon mal diese Frage hier gestellt... hättest ruhig darauf anworten können, als Feedback für den Anwortenden... anstatt hier nochmals zu Fragen...im Umkehrschluss einer solchen Community, antwortet der Ratgebende dann einfach nimmer, da er sein Posting gleich in die Tonne kippen kann. Sic! codeschnipsel - den oben weiterverwiesen code, um das was ich in deinen Code sehe, angepasst -ungetestet-Code:Anzahl = mySelection.Count For i = 1 To Anzahl Step 2 Set APt = my ...
|
|
CATIA V5 Programmierung : Bodys im Part benennen
Thomas Harmening am 14.05.2007 um 17:22 Uhr (0)
Language="VBSCRIPT"Sub CATMain()Dim mypartDocument As PartDocumentSet mypartDocument = CATIA.ActiveDocumentDim mypart As PartSet mypart = mypartDocument.PartsString = InputBox("Bitte einen Namen vergeben", "Bodybenennung", "nun mach was")Dim mybodies As bodiesSet mybodies = mypart.bodiesSet mybody = mybodies.Add()mybodies.Item(mybodies.Count).Name = UCase(sString)grossEnd Sub
|
|
CATIA V5 Programmierung : Parameter verstecken
Thomas Harmening am 05.06.2007 um 19:49 Uhr (0)
hmm, ist oben doch ausführlich beschrieben..?naja ;-)parameter:ist nur ein test = Stringzeige = booleanRule:Code:/*Rule created by ;-) 05.06.2007*/if zeige == false{`RelationsVB ScriptsVB Script.verstecke` .Run()}else{`RelationsVB ScriptsVB Script.zeige` .Run()}dann 2 Macros mit Argumenten erstellenName: VB Script.versteckeCode:Parameter X hideSet myParam1 = CATIA.ActiveDocument.Part.Parameters.Item("ist nur ein Test")myParam1.hidden =trueEnd SubName:VB Script.zeigeCode:Parameter X ShowSet myParam1 = CATIA ...
|
|
CATIA V5 Programmierung : Umbenennen Parameterset
Thomas Harmening am 10.08.2007 um 18:32 Uhr (0)
handelt es sich um einen Parameter oder um Mehrere?ich habe mir mal einige Dummyparameter angelegt aka copy-Material1... ...copy-Material99 unten der Code ändert sie in MaterialX umCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") wie immer, Makro aus Xl heraus ;)Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet parameters1 = part1.ParametersSet selection1 = partDocument1.Selectionselection1.Search "CATKnowledgeSearch.InternalParam ...
|
|
CATIA V5 Programmierung : koordinaten aus Excel
Thomas Harmening am 10.03.2008 um 18:14 Uhr (0)
Probiere mal diesCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") wird nur benötigt, weil ich Excel als Entwicklungssumgebung benutze Dim Excel As Application Dim WB As Workbook Dim WS As Worksheet Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True Set WB = Excel.Workbooks.Open("c: emppunkte.xls") Arbeitsmappe öffnen Set WS = WB.Worksheets.Item(1) Tabelle holen Set Part1 = CATIA.ActiveDocument.Part aktives part hole ...
|
|
CATIA V5 Programmierung : koordinaten aus Excel
Thomas Harmening am 11.03.2008 um 18:21 Uhr (0)
Zitat:Original erstellt von kalanja:hab lieder überhaupt keine ahnung von programmierung :-)ich doch auch nicht ;-)habe es mal geändert, Schnippsel in http://ww3.cad.de/foren/ubb/Forum137/HTML/001999.shtml#000004 einbauen ;-)oberer Code, wenn man es aus Excel laufen lässt.Code:Set Excel = CreateObject("Excel.Application") Excel starten Excel.Visible = True MsgBox "Guten Morgen, " & Chr$(13) & "bitte die Exceldatei *.xls auswählen" just for phun ChDir "C: emp" Pfadvorgeben NameZiel = Application. ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
